/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / BARNET / INTERNET / ACORNET / ACORN-ST / ACRNET21 / !AcornetA_AppLib_newshound

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0f f4 3e 6e 65 | 77 73 68 6f 75 6e 64 0d |.....>ne|wshound.|
|00000010| 00 14 3f f4 20 54 61 6b | 65 6e 20 66 72 6f 6d 20 |..?. Tak|en from |
|00000020| 43 6f 6c 69 6e 20 48 6f | 67 62 65 6e 27 73 20 66 |Colin Ho|gben's f|
|00000030| 72 65 65 74 69 6d 65 20 | 70 72 6f 67 72 61 6d 20 |reetime |program |
|00000040| 62 79 20 43 2e 43 61 72 | 70 65 6e 74 65 72 0d 00 |by C.Car|penter..|
|00000050| 1e 04 0d 00 28 15 dd 20 | a4 6e 65 77 73 68 6f 75 |....(.. |.newshou|
|00000060| 6e 64 5f 69 6e 69 74 0d | 00 32 06 3d 30 0d 00 3c |nd_init.|.2.=0..<|
|00000070| 04 0d 00 46 2a dd 20 a4 | 6e 65 77 73 68 6f 75 6e |...F*. .|newshoun|
|00000080| 64 5f 6d 65 74 68 6f 64 | 28 6d 65 74 68 6f 64 24 |d_method|(method$|
|00000090| 2c 61 72 67 24 2c 6f 70 | 74 24 29 0d 00 50 10 c8 |,arg$,op|t$)..P..|
|000000a0| 8e 20 6d 65 74 68 6f 64 | 24 20 ca 0d 00 5a 29 c9 |. method|$ ...Z).|
|000000b0| 20 22 63 6f 6e 66 69 67 | 22 3a 20 3d c3 a4 6e 65 | "config|": =..ne|
|000000c0| 77 73 68 6f 75 6e 64 5f | 63 6f 6e 66 69 67 28 61 |wshound_|config(a|
|000000d0| 72 67 24 29 0d 00 64 10 | c9 20 22 75 70 67 72 61 |rg$)..d.|. "upgra|
|000000e0| 64 65 22 3a 0d 00 6e 29 | 20 20 f2 75 70 67 72 61 |de":..n)|  .upgra|
|000000f0| 64 65 5f 70 72 65 63 69 | 6f 75 73 28 22 2e 43 6f |de_preci|ous(".Co|
|00000100| 6e 66 69 67 2e 43 6f 6e | 66 69 67 22 29 0d 00 78 |nfig.Con|fig")..x|
|00000110| 2d 20 20 f2 75 70 67 72 | 61 64 65 5f 70 72 65 63 |-  .upgr|ade_prec|
|00000120| 69 6f 75 73 28 22 2e 43 | 6f 6e 66 69 67 2e 47 6c |ious(".C|onfig.Gl|
|00000130| 6f 62 61 6c 52 75 6c 65 | 22 29 0d 00 82 29 20 20 |obalRule|")...)  |
|00000140| f2 75 70 67 72 61 64 65 | 5f 70 72 65 63 69 6f 75 |.upgrade|_preciou|
|00000150| 73 28 22 2e 43 6f 6e 66 | 69 67 2e 49 64 48 69 73 |s(".Conf|ig.IdHis|
|00000160| 74 22 29 0d 00 8c 21 20 | 20 3d a4 75 70 67 72 61 |t")...! | =.upgra|
|00000170| 64 65 5f 63 6f 70 79 5f | 64 69 72 28 61 72 67 24 |de_copy_|dir(arg$|
|00000180| 2c 22 22 29 0d 00 96 05 | cb 0d 00 a0 07 3d 22 22 |,"")....|.....=""|
|00000190| 0d 00 aa 04 0d 00 b4 1d | dd 20 a4 6e 65 77 73 68 |........|. .newsh|
|000001a0| 6f 75 6e 64 5f 63 6f 6e | 66 69 67 28 64 69 72 24 |ound_con|fig(dir$|
|000001b0| 29 0d 00 be 0f ea 20 69 | 25 2c 20 6c 69 6e 65 24 |)..... i|%, line$|
|000001c0| 0d 00 c8 29 f2 61 63 6f | 72 6e 65 74 5f 61 70 70 |...).aco|rnet_app|
|000001d0| 28 22 6e 65 77 73 22 2c | 64 69 72 24 2c 22 4e 65 |("news",|dir$,"Ne|
|000001e0| 77 73 48 6f 75 6e 64 22 | 29 0d 00 d2 28 69 25 3d |wsHound"|)...(i%=|
|000001f0| a4 64 6c 67 5f 70 6f 6c | 6c 3a 20 e7 20 69 25 3c |.dlg_pol|l: . i%<|
|00000200| 3e 64 6c 67 5f 4e 55 4c | 4c 20 8c 20 3d 69 25 3d |>dlg_NUL|L . =i%=|
|00000210| 31 0d 00 dc 3b f2 75 70 | 64 61 74 65 5f 6f 70 65 |1...;.up|date_ope|
|00000220| 6e 28 22 41 63 6f 72 6e | 65 74 3a 41 70 70 73 2e |n("Acorn|et:Apps.|
|00000230| 21 4e 65 77 73 48 6f 75 | 6e 64 2e 43 6f 6e 66 69 |!NewsHou|nd.Confi|
|00000240| 67 2e 64 65 6d 67 72 6f | 75 70 22 29 0d 00 e6 1a |g.demgro|up")....|
|00000250| c8 95 20 a4 75 70 64 61 | 74 65 5f 72 65 61 64 28 |.. .upda|te_read(|
|00000260| 6c 69 6e 65 24 29 0d 00 | fa 20 20 20 20 e7 20 c0 |line$)..|.    . .|
|00000270| 6c 69 6e 65 24 2c 39 29 | 3d 22 4e 45 57 47 52 4f |line$,9)|="NEWGRO|
|00000280| 55 50 53 22 20 8c 0d 01 | 04 28 20 20 20 20 20 20 |UPS" ...|.(      |
|00000290| f4 20 47 65 74 20 74 69 | 6d 65 73 74 61 6d 70 20 |. Get ti|mestamp |
|000002a0| 6f 66 20 6f 6e 65 20 64 | 61 79 20 61 67 6f 0d 01 |of one d|ay ago..|
|000002b0| 0e 2d 20 20 20 20 20 20 | 74 69 6d 65 25 3d a4 6d |.-      |time%=.m|
|000002c0| 61 6c 6c 6f 63 28 33 32 | 29 3a 20 6c 61 67 25 3d |alloc(32|): lag%=|
|000002d0| 31 2a 38 36 34 30 30 2a | 31 30 30 0d 01 18 28 20 |1*86400*|100...( |
|000002e0| 20 20 20 20 20 3f 74 69 | 6d 65 25 3d 33 3a 20 c8 |     ?ti|me%=3: .|
|000002f0| 99 22 4f 53 5f 57 6f 72 | 64 22 2c 31 34 2c 74 69 |."OS_Wor|d",14,ti|
|00000300| 6d 65 25 0d 01 22 35 20 | 20 20 20 20 20 e7 20 21 |me%.."5 |     . !|
|00000310| 74 69 6d 65 25 3e 3d 30 | 20 80 20 21 74 69 6d 65 |time%>=0| . !time|
|00000320| 25 3c 6c 61 67 25 20 8c | 20 74 69 6d 65 25 3f 34 |%<lag% .| time%?4|
|00000330| 3d 74 69 6d 65 25 2d 31 | 0d 01 2c 1c 20 20 20 20 |=time%-1|..,.    |
|00000340| 20 20 21 74 69 6d 65 25 | 3d 21 74 69 6d 65 25 2d |  !time%|=!time%-|
|00000350| 6c 61 67 25 0d 01 36 4a | 20 20 20 20 20 20 c8 99 |lag%..6J|      ..|
|00000360| 22 4f 53 5f 43 6f 6e 76 | 65 72 74 44 61 74 65 41 |"OS_Conv|ertDateA|
|00000370| 6e 64 54 69 6d 65 22 2c | 74 69 6d 65 25 2c 74 69 |ndTime",|time%,ti|
|00000380| 6d 65 25 2b 38 2c 32 34 | 2c 22 25 59 52 25 4d 4e |me%+8,24|,"%YR%MN|
|00000390| 25 44 59 20 25 32 34 25 | 4d 49 25 53 45 22 0d 01 |%DY %24%|MI%SE"..|
|000003a0| 40 42 20 20 20 20 20 20 | 74 69 6d 65 25 3f 32 31 |@B      |time%?21|
|000003b0| 3d 31 33 3a 20 6c 69 6e | 65 24 3d 22 4e 45 57 47 |=13: lin|e$="NEWG|
|000003c0| 52 4f 55 50 53 20 22 2b | 24 28 74 69 6d 65 25 2b |ROUPS "+|$(time%+|
|000003d0| 38 29 3a 20 f2 66 72 65 | 65 28 74 69 6d 65 25 29 |8): .fre|e(time%)|
|000003e0| 0d 01 ae 08 20 20 20 cd | 0d 01 af 1b 20 20 20 f2 |....   .|....   .|
|000003f0| 75 70 64 61 74 65 5f 77 | 72 69 74 65 28 6c 69 6e |update_w|rite(lin|
|00000400| 65 24 29 0d 01 b8 05 ce | 0d 01 c2 11 f2 75 70 64 |e$).....|.....upd|
|00000410| 61 74 65 5f 63 6c 6f 73 | 65 0d 01 cc 28 69 25 3d |ate_clos|e...(i%=|
|00000420| a4 64 6c 67 5f 70 6f 6c | 6c 3a 20 e7 20 69 25 3c |.dlg_pol|l: . i%<|
|00000430| 3e 64 6c 67 5f 4e 55 4c | 4c 20 8c 20 3d 69 25 3d |>dlg_NUL|L . =i%=|
|00000440| 31 0d 01 d6 36 f2 6e 65 | 77 73 62 61 73 65 5f 63 |1...6.ne|wsbase_c|
|00000450| 6d 64 28 22 74 72 61 6e | 73 70 6f 72 74 20 73 6f |md("tran|sport so|
|00000460| 75 72 63 65 20 6e 65 77 | 73 20 6e 65 77 73 68 6f |urce new|s newsho|
|00000470| 75 6e 64 20 31 22 29 0d | 01 e0 35 f2 6e 65 77 73 |und 1").|..5.news|
|00000480| 62 61 73 65 5f 63 6d 64 | 28 22 74 72 61 6e 73 70 |base_cmd|("transp|
|00000490| 6f 72 74 20 72 6f 75 74 | 65 20 6e 65 77 73 20 6e |ort rout|e news n|
|000004a0| 65 77 73 68 6f 75 6e 64 | 20 31 22 29 0d 01 ea 37 |ewshound| 1")...7|
|000004b0| f2 6e 65 77 73 62 61 73 | 65 5f 63 6d 64 28 22 74 |.newsbas|e_cmd("t|
|000004c0| 72 61 6e 73 70 6f 72 74 | 20 64 65 66 61 75 6c 74 |ransport| default|
|000004d0| 20 73 6f 75 72 63 65 20 | 6e 65 77 73 68 6f 75 6e | source |newshoun|
|000004e0| 64 22 29 0d 01 f4 35 f2 | 6e 65 77 73 62 61 73 65 |d")...5.|newsbase|
|000004f0| 5f 63 6d 64 28 22 74 72 | 61 6e 73 70 6f 72 74 20 |_cmd("tr|ansport |
|00000500| 64 65 66 61 75 6c 74 20 | 6e 65 77 73 20 6e 65 77 |default |news new|
|00000510| 73 68 6f 75 6e 64 22 29 | 0d 01 fe 47 f2 6e 65 77 |shound")|...G.new|
|00000520| 73 62 61 73 65 5f 63 6d | 64 28 22 74 72 61 6e 73 |sbase_cm|d("trans|
|00000530| 70 6f 72 74 20 67 61 74 | 65 77 61 79 20 6e 65 77 |port gat|eway new|
|00000540| 73 20 6e 65 77 73 68 6f | 75 6e 64 20 22 2b 6e 65 |s newsho|und "+ne|
|00000550| 74 5f 6e 6e 74 70 5f 73 | 65 72 76 65 72 24 29 0d |t_nntp_s|erver$).|
|00000560| 02 08 06 3d 31 0d ff    |                         |...=1.. |        |
+--------+-------------------------+-------------------------+--------+--------+